home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / M2I5_76.lha / M2I5_76 / Rexx / Public.M2I < prev    next >
Encoding:
Text File  |  1998-03-24  |  983 b   |  35 lines
  1. /*
  2.  Public (ScreenName, M2IDrawer)
  3.  
  4.  Open a drawer in a public screen,
  5.  or close it.
  6. */
  7.  
  8. PARSE ARG Screen Drawer
  9.  
  10. Drawer=STRIP(Drawer,B)
  11.  
  12. OPTIONS RESULTS
  13. ADDRESS "M2IPort.Rexx"
  14.  
  15. GETPUBLIC Screen                       /* Public Screen exists? */
  16. IF RC=0 THEN DO
  17.  PUBLICDRW Drawer                      /* Already opened on this screen? Then close it. */
  18.  IF RESULT~=Screen THEN DO
  19.     GET WINDOW Drawer                  /* Opened? */
  20.     IF RESULT=1 THEN CLOSEDRW Drawer   /* Then close */
  21.     OPENDRWPUB Screen Drawer           /* Open in a public screen */
  22.     IF RC=0 THEN SETDEFPUB Screen      /* The screen is the default public screen */
  23.     IF RC=0 THEN PUBTOFRONT Screen     /* Screen to front */
  24.  END
  25.  ELSE DO
  26.     GET WINDOW Drawer                  /* Opened? */
  27.     IF RESULT=1 THEN CLOSEDRW Drawer   /* Then close */
  28.     OPENDRW Drawer                     /* Open in Workbench */
  29.     IF RC=0 THEN SETDEFPUB "Workbench"
  30.     IF RC=0 THEN PUBTOFRONT "Workbench"
  31.  END
  32. END
  33.  
  34. EXIT
  35.